1 REM *** BYTES 'R' US (64) ***
2 S=700:REM CHANGE S TO RELOCATE
3 PRINTCHR$(147):PRINT
4 FORJ=STOS+23:READA:POKEJ,A:X=X+A:NEXTJ
5 IFX<>3448THENPRINT"ERROR IN DATA...":END
6 PRINT"DATA OK.  SYS"S"FOR BYTES...":END
7 DATA166,43,232,232,134,251,165,45,56,229,251,170
8 DATA164,46,176,1,136,152,56,229,44,76,205,189